home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day08 / stmain.dfm / stmain.txt
Encoding:
Text File  |  1998-02-08  |  2.4 KB  |  129 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 108
  4.   Width = 387
  5.   Height = 216
  6.   Caption = 'Scroll Bar Test'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 13
  13.   object Label1: TLabel
  14.     Left = 8
  15.     Top = 48
  16.     Width = 20
  17.     Height = 13
  18.     Caption = 'Red'
  19.   end
  20.   object Label2: TLabel
  21.     Left = 8
  22.     Top = 88
  23.     Width = 29
  24.     Height = 13
  25.     Caption = 'Green'
  26.   end
  27.   object Label3: TLabel
  28.     Left = 8
  29.     Top = 136
  30.     Width = 21
  31.     Height = 13
  32.     Caption = 'Blue'
  33.   end
  34.   object RedScroller: TScrollBar
  35.     Left = 8
  36.     Top = 64
  37.     Width = 297
  38.     Height = 16
  39.     LargeChange = 10
  40.     Max = 255
  41.     TabOrder = 0
  42.     OnScroll = RedScrollerScroll
  43.   end
  44.   object ColoredPanel: TPanel
  45.     Left = 0
  46.     Top = 0
  47.     Width = 379
  48.     Height = 41
  49.     Align = alTop
  50.     Caption = 'Colored Panel'
  51.     Color = clBlue
  52.     Font.Color = clWindowText
  53.     Font.Height = -16
  54.     Font.Name = 'MS Sans Serif'
  55.     Font.Style = [fsBold]
  56.     ParentFont = False
  57.     TabOrder = 1
  58.   end
  59.   object GreenScroller: TScrollBar
  60.     Left = 8
  61.     Top = 104
  62.     Width = 297
  63.     Height = 16
  64.     LargeChange = 10
  65.     Max = 255
  66.     TabOrder = 2
  67.     OnScroll = RedScrollerScroll
  68.   end
  69.   object BlueScroller: TScrollBar
  70.     Left = 8
  71.     Top = 152
  72.     Width = 297
  73.     Height = 16
  74.     LargeChange = 10
  75.     Max = 255
  76.     Position = 255
  77.     TabOrder = 3
  78.     OnScroll = RedScrollerScroll
  79.   end
  80.   object RedPanel: TPanel
  81.     Left = 320
  82.     Top = 64
  83.     Width = 49
  84.     Height = 17
  85.     BevelOuter = bvNone
  86.     BorderStyle = bsSingle
  87.     Caption = '0'
  88.     Color = clRed
  89.     Font.Color = clWhite
  90.     Font.Height = -11
  91.     Font.Name = 'MS Sans Serif'
  92.     Font.Style = [fsBold]
  93.     ParentFont = False
  94.     TabOrder = 4
  95.   end
  96.   object BluePanel: TPanel
  97.     Left = 320
  98.     Top = 152
  99.     Width = 49
  100.     Height = 17
  101.     BevelOuter = bvNone
  102.     BorderStyle = bsSingle
  103.     Caption = '255'
  104.     Color = clBlue
  105.     Font.Color = clWhite
  106.     Font.Height = -11
  107.     Font.Name = 'MS Sans Serif'
  108.     Font.Style = [fsBold]
  109.     ParentFont = False
  110.     TabOrder = 5
  111.   end
  112.   object GreenPanel: TPanel
  113.     Left = 320
  114.     Top = 104
  115.     Width = 49
  116.     Height = 17
  117.     BevelOuter = bvNone
  118.     BorderStyle = bsSingle
  119.     Caption = '0'
  120.     Color = clLime
  121.     Font.Color = clWhite
  122.     Font.Height = -11
  123.     Font.Name = 'MS Sans Serif'
  124.     Font.Style = [fsBold]
  125.     ParentFont = False
  126.     TabOrder = 6
  127.   end
  128. end
  129.